home *** CD-ROM | disk | FTP | other *** search
- -- stack: in
- -- format: 10 (HyperCard 2)
- -- flags: 0x1000 (none)
- -- protect password hash: 0
- -- maximum user level: 5 (scripting)
- -- window: Rect(x1=0, y1=0, x2=0, y2=0)
- -- screen: Rect(x1=0, y1=0, x2=0, y2=0)
- -- card dimensions: w=0 h=0
- -- scroll: x=0 y=0
- -- background count: 2
- -- first background id: 2805
- -- card count: 2
- -- first card id: 3242
- -- list block id: 4826
- -- print block id: 0
- -- font table block id: 3958
- -- style table block id: 3342
- -- free block count: 1
- -- free size: 768 bytes
- -- total size: 16384 bytes
- -- stack block size: 8192 bytes
- -- created by hypercard version: 0x00000000
- -- compacted by hypercard version: 0x02108000
- -- modified by hypercard version: 0x00000000
- -- opened by hypercard version: 0x02108000
- -- patterns[0]: 0x0000000000000000
- -- patterns[1]: 0x8000000008000000
- -- patterns[2]: 0x8800220088002200
- -- patterns[3]: 0x8888222288882222
- -- patterns[4]: 0x88AA22AA88AA22AA
- -- patterns[5]: 0xCCAA33AACCAA33AA
- -- patterns[6]: 0xEEAABBAAEEAABBAA
- -- patterns[7]: 0xEEBBBBEEEEBBBBEE
- -- patterns[8]: 0xFFBBFFEEFFBBFFEE
- -- patterns[9]: 0xFFBBFFFFFFBBFFFF
- -- patterns[10]: 0x8010022001084004
- -- patterns[11]: 0xFFFFFFFFFFFFFFFF
- -- patterns[12]: 0x8822882288228822
- -- patterns[13]: 0x1122448811224488
- -- patterns[14]: 0xC4800C6843023026
- -- patterns[15]: 0xB130031BD8C00C8D
- -- patterns[16]: 0xAA00AA00AA00AA00
- -- patterns[17]: 0xFFFF0000FFFF0000
- -- patterns[18]: 0x9999999999999999
- -- patterns[19]: 0x77DD77DD77DD77DD
- -- patterns[20]: 0x8000000000000000
- -- patterns[21]: 0xAA55AA55AA55AA55
- -- patterns[22]: 0x038448300C020101
- -- patterns[23]: 0x8244394482010101
- -- patterns[24]: 0x8814224188412214
- -- patterns[25]: 0x8080413E080814E3
- -- patterns[26]: 0x22048C7422179810
- -- patterns[27]: 0x993366CC993366CC
- -- patterns[28]: 0x25C8328964244C92
- -- patterns[29]: 0xA29C41BE2AC914EB
- -- patterns[30]: 0x40A00000040A0000
- -- patterns[31]: 0x8040200002040800
- -- patterns[32]: 0xAA00800088008000
- -- patterns[33]: 0xFF80808080808080
- -- patterns[34]: 0x8888888888888888
- -- patterns[35]: 0xFF808080FF080808
- -- patterns[36]: 0xF87422478F172271
- -- patterns[37]: 0xBF00BFBFB0B0B0B0
- -- patterns[38]: 0xFF000000FF000000
- -- patterns[39]: 0xFAF5FAF5A050A050
- -- checksum: 0x66D6A4C2
- ----- HyperTalk script -----
- --
- --
- -- This stack is copyrighted 1987 by Howard Bornstein
- -- Design Equilibrium, Menlo Park, CA 94025. 415-328-9181
- --
- -- Permission is granted for non-commercial distribution.
- --
- -- This is NOT an example of good HyperTalk programming!
- -- It is simply a quick hack to display some of the built-in animation
- -- capabilities within HyperCard. You can do some interesting
- -- animation without creating huge stacks of cards and flipping
- -- through them. This stack has only two cards. Everything is
- -- controlled from this script.
- --
- --
-
-
- on openstack
- set the userlevel to 5 -- Let people poke around in here
- hide menubar -- clean up the scene
- hide msg
- go to card "DEQ"
- repeat until the mouseClick -- keep playing script until mouse click
- animate
- end repeat -- play it again, Sam.
- end openstack
-
- On closestack
- go to card "DEQ"
- choose select tool -- restore things back to normal
- domenu "select all"
- domenu "Clear Picture"
- choose browse tool
- end closestack
-
- on animate -- This does all the work
-
- put 40 into dspeed -- set the drag speed
- choose select tool
- domenu "select all"
- domenu "Clear Picture" -- start out clean
-
- -- do the "D"
- set lockscreen to true -- don't show what we're doing
- push card -- "I'll be back"
- set the dragspeed to 0 -- So it doesn't take long selecting it
- go to card "parts" -- go get the "d"
- drag from 150,176 to 21,336 with optionkey -- select it in lasso mode
- domenu "Copy Picture"
- pop card -- get back to where you once belonged
- domenu "Paste Picture" -- bring it to main card
- set lockscreen to false -- show it
- set the dragspeed to dspeed
- drag from 89,236 to 89,132 -- do the first move
- set dragspeed to 10
- wait 2 seconds -- split it
- drag from 89,132 to 101,132 with optionkey -- the option key makes a
- -- duplicate
-
-
- -- Do the "Q"
- choose select tool
- set dragspeed to 0
- set lockscreen to true
- push card
- go to card "parts"
-
- drag from 298,165 to 178,4 with optionkey
- domenu "Copy Picture"
- pop card
- set lockscreen to false
-
- domenu "Paste Picture"
- set the dragspeed to dspeed
- drag from 241,9 to 241,132
- set dragspeed to 10
- wait 2 seconds
- drag from 241,132 to 229,132 with optionkey -- split it
-
-
- -- Do the E
- set dragspeed to 0
- set lockscreen to true
- push card
- go to card "parts"
-
- choose select tool
- drag from 380,13 to 494,123 with optionKey
- domenu "Copy Picture"
- pop card
- set lockscreen to false
-
- domenu "Paste Picture"
- set the dragspeed to dspeed
- drag from 442,19 to 160,127
- set dragspeed to 10
- wait 2 seconds
- drag from 160,127 to 174,127 with optionkey -- split it
-
-
- -- fade it out and in
- wait 2 seconds
- set dragspeed to 0
- choose select tool
- drag from 20,60 to 305,296 with optionkey -- Select it in lasso mode
- domenu "Copy picture"
-
- repeat 50 times
- domenu "lighten" -- fade it out
- end repeat
-
- wait 2 seconds
-
- repeat 50 times
- domenu "darken" -- bring it back. This works because we selected
- -- the item with the lasso and there are no
- -- enclosed spaces.
- end repeat
-
- domenu "paste Picture" -- This restores the image completely.
- click at 1,1 -- This puts the image on the page,
- -- otherwise the lasso is still selected
-
- drag from 20,60 to 305,296 with commandkey -- Select it again
- wait 2 seconds
- domenu "Trace Edges"
- domenu "Trace Edges"
- domenu "Trace Edges"
- domenu "Trace Edges"
- wait 2 seconds
- domenu "Undo"
- wait 2 seconds
- --domenu "Invert"
- --wait 4 seconds
- --domenu "Invert"
-
- -- get the DEQ name/address
- choose select tool
- set lockscreen to true
- push card
- go to card "parts"
-
- drag from 149,239 to 354,319 with optionkey
- domenu "Copy Picture"
- pop card
- set lockscreen to false
-
- domenu "Paste Picture"
- set dragspeed to dspeed
- drag from 159,247 to 72,247 -- Position it
-
- --
- -- Do the consulting message
- --
- wait 2 seconds
-
- choose text tool
- set textsize to 24 -- if you don't have Times 24 pt, installed
- -- this will not look too good.
- set textfont to "Times"
- set textstyle to extend,Bold
- click at 20,57
- type "Full Service Macintosh Consulting"
-
- --
- -- get the box
- --
- choose select tool
- set dragspeed to 0
- set lockscreen to true
- push card
- go to card "parts"
-
- drag from 356,130 to 502,333 with commandkey
- domenu "Copy Picture"
- pop card
- set lockscreen to false
-
- domenu "Paste Picture"
- set dragspeed to dspeed
- drag from 362,136 to 319,136 -- position it properly
- drag from 319,136 to 319,92 -- " " "
-
- --
- -- Now display the services
- --
-
- put 274 into bottom -- The position in box to type services
- put 20 into spacing -- Spacing between services as they move up
-
- set dragspeed to 120
- set textfont to "New York"
- set textstyle to "plain"
- set textsize to 14
- choose text tool
- click at 331,260 -- This is where they all start
- Type "• Hardware"
- choose select tool
- drag from 329,249 to 439,265 with CommandKey -- This selects it after
- -- it is typed.
- drag from 333,254 to 333,bottom-(spacing*8) -- Compute how far to
- -- drag it up.
-
- choose text tool
- click at 331,260
- type "• Software"
- choose select tool
- drag from 329,249 to 439,265 with CommandKey
- drag from 333,254 to 333,bottom-(spacing*7)
-
- choose text tool
- click at 331,260
- type "• HyperCard"
- choose select tool
- drag from 329,249 to 439,265 with CommandKey
- drag from 333,254 to 333,bottom-(spacing*6)
-
- choose text tool
- click at 331,260
- type "• Databases"
- choose select tool
- drag from 329,249 to 439,265 with CommandKey
- drag from 333,254 to 333,bottom-(spacing*5)
-
- choose text tool
- click at 331,260
- type "• Networks"
- choose select tool
- drag from 329,249 to 439,265 with CommandKey
- drag from 333,254 to 333,bottom-(spacing*4)
-
- choose text tool
- click at 331,260
- type "• Graphics"
- choose select tool
- drag from 329,249 to 439,265 with CommandKey
- drag from 333,254 to 333,bottom-(spacing*3)
-
- choose text tool
- click at 331,260
- type "• Training"
- choose select tool
- drag from 329,249 to 439,265 with CommandKey
- drag from 333,254 to 333,bottom-(spacing*2)
-
- choose text tool
- click at 331,260
- type "• File Recovery"
- choose select tool
- drag from 329,249 to 439,265 with CommandKey
- drag from 333,254 to 333,bottom-(spacing*1)
- choose browse tool
-
- wait 8 seconds
-
- end animate
-
-